home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / NetInfo.lha / NetInfo / Rexx / NetInfo.amirx
Text File  |  2002-09-25  |  1KB  |  39 lines
  1. /*
  2.  * $VER: NetInfo.amirx 1.0 (10.02.2000) ©2000 Lorens Johansson <SnorsleX@Home.se> and Robin Cloutman <netinfo@rycochet.demon.co.uk>
  3.  *
  4.  * Part of NetInfo.AmIPlug 3.x
  5.  *
  6.  * Either call this from amirc (/RX NetInfo.amirx) or use the menu item
  7.  * provided by NetInfo.AmIPlug.
  8.  *
  9.  * NOTE: This location does NOT provida *all* the rates available, if
  10.  * someone finds a location that can and writes a script to get it and
  11.  * convert it to this format then i'll include it ;-)
  12.  *
  13.  * File format:
  14.  * "CODE rate :date"
  15.  * eg "AFA 28700.0000  :20000101"
  16.  */
  17. server = 'www.contactor.se'
  18. crlf = '0d0a'x
  19. c = '1b'x
  20. 'ECHO P='c'b«Rates» Attempting to update exchange rates file...'
  21. IF OPEN(1,'tcp:'server'/80','RW') THEN DO
  22.     CALL WRITECH(1,'GET http://'server'/~dast/currency/rates.cgi HTTP/1.0'||crlf||crlf)
  23.     a=READLN(1)
  24.     IF LEFT(a,4)='HTTP' & WORD(a,2)<400 THEN DO
  25.         DO UNTIL EOF(1)
  26.             IF READLN(1)='0d'x THEN LEAVE
  27.         END
  28.         IF ~EXISTS('Plugins/Data') THEN ADDRESS COMMAND 'MakeDir Plugins/Data'
  29.         IF OPEN(2,'Plugins/Data/NetInfo.rates','W') THEN DO
  30.             DO UNTIL EOF(1)
  31.                 CALL WRITECH(2,READCH(1,1024))
  32.             END
  33.             CALL CLOSE(2)
  34.             'ECHO P='c'b«Rates» Exchange rates updated.'
  35.         END; ELSE 'ECHO P='c'b«Rates» Unable to save file.'
  36.     END; ELSE 'ECHO P='c'b«Rates» Unable to get file ('a').'
  37.     CALL CLOSE(1)
  38. END; ELSE 'ECHO P='c'b«Rates» Unable to connect to server.'
  39.